perm filename HARMZ[1,LCS] blob sn#305803 filedate 1977-09-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION HARM
C00003 ENDMK
C⊗;
FUNCTION HARM;
BEGIN 
VARIABLE X;
IF P8=0 THEN BEGIN  PRINT P8;
IF P3=C THEN X←E/2;
IF P3=D THEN X←F/2;
IF P3=E THEN X←G/2;
IF P3=F THEN X←B/2;
IF P3=G THEN X←D;
IF P3=A THEN X←C;  PRINT P3;
IF P3=B/2 THEN X←D/2;  PRINT X;
END  ELSE BEGIN P3←X; END;
PRINT P3;END;
PLAY;TOOT 0 1 C 1000 F1 F3 0 0 HARM;
P8←1;P7←F4;CLAR ,,,,,,,,HARM;FINI;